home *** CD-ROM | disk | FTP | other *** search
/ Run Magazine ReRun 1985 Fall / rerun-1985-fall.d64 / test compiler (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  348b  |  22 lines
  1. 5 rem test compiler
  2. 10 b=13320*4:poke53281,7:poke646,6
  3. 20 print"[147]test.comp"
  4. 30 poke781,10:poke782,10:poke783,0
  5. 40 sys65520:print"test"
  6. 50 fori=1to5step1
  7. 60 printi:next
  8. 70 k=peek(197):ifk=64then70
  9. 80 ifk=3thenend:rem f7
  10. 90 x=peek(653)
  11. 100 a=k+60354
  12. 110 ifx=0thena=a-65
  13. 120 c=peek(a):printchr$(c);
  14. 130 ifc=65thengosub180
  15. 140 ifc<65thenprintchr$(60);
  16. 150 ifc>65thenprintchr$(62);
  17. 160 ifc<>65thenpokeb,2
  18. 170 printchr$(65):goto70
  19. 180 printchr$(61);
  20. 190 pokeb,5
  21. 200 return
  22.